home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #03 (Aug85-Sep85) / Basic / Rescue Basic Vol. 1 #10 / rescueit
Text File  |  1985-08-01  |  980b  |  38 lines
  1. REM }|{ Marker for end of main program
  2. SUB rescueit STATIC
  3. prefixbyte (1) = &HF9:Prefixbyte (2) = &HFB
  4. filetype$ (1) = "MSBC":filetype$ (2) = "MSBB"
  5. Peekloc(1) = 76999!:peekloc(1) = 77001!
  6.  
  7. WINDOW 1,,(100,100)-(400,200),2
  8. TEXTFONT 0
  9. PRINT"    Which version of BASIC are you using?"
  10. TEXTFONT 1
  11. BUTTON 1,1,"Binary",(35,40)-(95,65)
  12. BUTTON 2,1,"Decimal",(170,40)-(240,65)
  13. WHILE DIALOG (0)<>1:WEND
  14. buttonpressed = DIALOG (1)
  15. peekloc = peekloc(buttonpressed)
  16.  
  17. WINDOW 1,"rescueit",(2,39)-(508,338),1
  18. OPEN "res" FOR OUTPUT AS #1
  19. PRINT#1,CHR$(prefixbyte(buttonpressed));
  20.  
  21. rescue1:
  22. peekloc = peekloc +1
  23. IF PEEK (peekloc) = &HAF THEN IF PEEK (peekloc+1)= &H20 AND PEEK (peekloc+2)=ASC("}") AND PEEK (peekloc+3)+ASC("|") AND PEEK (peekloc+4)= ASC ("{") THEN rescue2
  24. PRINT #1, CHR$ (PEEK (peekloc));
  25. GOTO rescue1
  26.  
  27. rescue2:
  28. FOR i =1 TO  4
  29.     PRINT #1,CHR$(&H0);
  30. NEXT i
  31. CLOSE #1
  32. NAME "res" AS "Resurrected",filetype$(buttonpressed)
  33.  
  34. CALL TEXTSIZE (100)
  35. PRINT:PRINT"Finished...";
  36. SYSTEM
  37. END SUB
  38.